Dim fso, fld, fldName, drvName
drvName = "c:\"
fldName = "folder"
Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FolderExists(drvName & fldName)) Then
   msgbox("Folder istnieje.")
Else
   Set fld = fso.CreateFolder(drvName & fldName)
End If
